home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr52 / wildcard.zip / TEST.PRG < prev    next >
Text File  |  1993-04-02  |  327b  |  18 lines
  1. set procedure to wildcard        && S'87
  2. *set procedure to clip5ver        && 5.0
  3.  
  4. select 0
  5. use test
  6. set filter to k_wildcard(test->po_num,"90???2")
  7. go top
  8.  
  9. clear
  10. ? [k_wildcard(test->po_num,"90???2")]
  11. do while !eof()
  12.    ? test->po_num+"  "+dtoc(test->po_date)+"  "+test->vend_id
  13.    skip +1
  14. enddo
  15. wait
  16.  
  17. return
  18.